DevSubType 
DevSubType 

Password : 

FmtDelay: 
FintDelay: 

RW }jCy I inder 

RUlJCyrmder 

RWI-Cylinder 

RWI_Ua!ue: 

BO_UctTcib: 
Start-Uector: 

LI Use tor: 

LH_Uector: 

RdLJJector: 

CS_Uector-: 

LdPw-Uector : 

Free_Uector: 

ExtStk_Uector: 

Zr-Rd_Uector-: 

CIrStat-Uector; 



DO 

LSTON 
Page 
FIN 

ORG 

DO 
.Equ 

ELSE 
.Equ 

Fm 

BLOCK 
.DB 
.DB 

.DO 
.DB 
ELSE 
.DB 
.FIH 

.DO 

.Equ 

.FIN 

.DO 

-Equ 

.FIN 

.DO 

.Equ 

.FIN 

.DB 



Jp 
Jp 
# 

Jp 

Ld 

Ld 

Call 

Ret 

Ld 

Ld 

Call 

Ret 

Ld 
Ld 
Cal I 
Ret 

Ld 

Ld 

Cal I 

Ret 

Ld 
Ld 



Internal 



$1000 ;move this code Into the eprom 

SystemCode 

$00 ; system device 

$01 ;diagnostic device 



0,2 ; reserve two bytes for the checkbyte 
jbank 
$F0, $78, $3C, $1E 

W_10NB 

$1F ; busy wait for a while 

$1F 



w_ioriB 

257 ; cylinder at ujhich to turn on RWI and PC 

M_20MB 

257 ; cylinder at ««hich to turn on RUI and PC 

W_40MB 

514 ;cyl inder at which to turn on RWI and PC 

-HIBVTE. RWlJCyl inder, .LOMB'/TE. RWlJCylinder 



StartJCoififfiand 
Load JLog i aa 1 
LoadJHeader 
Rd_Leave 
ClrNormStat 

!r2,«. HIBVTE. Load_Passl4ord 
!r3,«.L0WBVTE. Load_Passl4ord 
BankJCa 1 1 



!r2,«. HIBVTE. Strt_Fr-eeProcess 
! r3, « . LOWBVTE . Str t_FreeProcess 
BankJCa 1 1 



!r2,». HIBVTE. lnit_ExtStack 
! r3, « . LOUBVTE . I n i t_£xtStack 
BankJCa 1 1 



!r2,». HIBVTE. Zem_RdBuf 
I r3,*. LOWBVTE. Zero_BdBuf 
BankJCa 1 1 



I r2 . « . H I BVTE .CI earSta tus 
I r3,«. LOWBVTE. ClearStatus 



SifTst_Uector: 



SfrTbl-Uector: 



Call 
Ret 

Ld 
Ld 
Call 
Ret 

Ld 

Ld 

Cciii 

Ret 



BankJCa 1 1 



!r2,«.H!BVTE. Self Test 
lr3,«.L0UBVTE. Self Test 
BankJCa 1 1 



!r2.«.HIBVTE. Load^prTbl 
!r3,«.L0MBVTE. Load_SprTbl 
BankJCa! I 



LC_Uector: 



Ld 

Ld 

Call 

Ret 



!r2,«.HIBVTE. 
!r-3,».L0WBVTE 
BankJCa i i 



LoadJCache 
LoadJCache 



Scan-Uector: 



IScan_Uector: 



>can_SprChk : 



fScan_Ret: 

WrBlk_Uector: 
Uctr-BO_Bet: 

RdBlk_Uector: 



Ld !r2,«.HIBVTE. D^can 

Ld !r3,».L0WBYTE. DJScan 

Call BankJCa II 

Jp Rd_Leave 



Ld lrO,*DeySubType ; check for SystemCode 

Or IrOJrO ;IF SystemCode THEN DevSubType = 

Jr MzJScan_Ret 

Tm ExcptJ5tat,«P«jrRst ;on{y do scan after power reset 

Jr ZJScan-SprChk 

Ld !r2.».HIBVTE. Scan 

Ld lr3,#.L0WBVTE. Scan 

Call BankJCa 1 1 

Ld !r2,«.HIBVTE. Chk_^prCnt 

Ld !r3,«.L0WBVTE. ChkJSprCnt 

Call BankJCa 11 
Ret 

Call WriteBlock 

Jp Bank_Ret 

Call ReadBlock 

Jr UctrBO_Ret 



SC_Uector: 



Seek_Uector: 



ExtPush-Uector : 



Call 
Jr 

Ld 
Ld 

Call 

Jp 

Ld 

Ld 

Call 

Ret 



SrchJCache 
Uc trBO_Bet 

lr2,«.HlBVTE. 
!r3,«.L0UBVTE 
BankJCa! I 
Bank_Ret 



Seek 
Seek 



!r2.«.HIBVTE. Ext-Push 
f r3, » . LGUBVTE . Ext-Push 
BankJCa! I 



ExtPop-Uector 



Ld 

Ld 

Call 

Ret 



!r2,«.HIBVTE. Ext_Pop 
!r3,«.L0WBVTE. ExtJ^op 
BankJCa 1 1 



Dev i ceParams ; 



w_toriB 



RSCll 'Hldget-IO 

DB $00, $01, $0 + DevSubType 





.DB 


H i RevNumber , LoRevNumber 




.OB 


$00, $4C, $00 




.DU 


532 ; number of bytes per block 




.DU 


514 ; number of cylinders is 514 




.DB 


$02 ; number of heads is 2 




.DB 


NbrSctrs 




.DB 


$00, $00, 75 ; number of spare possible 




.LSTOFF 






.FIH 






.DO 


Internal 




.LSTON 






.FIM 






.DO 


W ?OMB 




.flSCII 


' Midge t-20 




.DB 


$00, $01, $10 + DevSubType 




.DB 


HI RevNumber. LoRevNumber 




.DB 


$00, $98, $00 




.DM 


532 ; number of bytes per block 




.DU 


514 ; number of cylinders is 514 




.DB 


$02 ; number of heads is 2 




.DB 


NbrSctrs 




.DB 


$00, $00, 76 ; number of spare possible 




.LSTOFF 






.FIN 






.DO 


Internal 




.LSTOli 






.F!N 






.DO 


M_40MB 




.flSCII 


•Midge t-40 




.DB 


$00, $01, $20 + DevSubType 




.DB 


Hi RevNumber, LoRevHumber 




.DB 


$01, $30, $00 




.DM 


532 ; number of bytes per block 




.DM 


1028 ; number of cylinders is 1028 




.DB 


$02 ; number of heads is 2 




.DB 


NbrSctrs 




.DB 


$00, $00, 76 ; number of spare possible 




.LSTOFF 






.Fm 






.DO 


Internal 




LSTON 






.FIN 




Dev_Parin_Len 


.Equ 


.PC. - Oev i ceParams 



LSTOFF 



